home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr47
/
wasm223.zip
/
LOGON
< prev
next >
Wrap
Text File
|
1993-05-04
|
1KB
|
33 lines
//
// SESSION Log-On Routines, By Eric Tauck
//
// Requires:
//
// RECEIVE
// SEND
//
LogOn_End JUMP
// -----------------------------------------------------------------
// Send a modem string and wait for CONNECT. Return TRUE if success.
// -----------------------------------------------------------------
: DialPhone // (string - 0 | -1)
SendInitString CALL // send init string
DialConnect 546 WaitForString CALL ; // wait 30 seconds for connect
: DialConnect " CONNECT"
// ------------------------------------------------------------
// Wait for a prompt and send a string. Return TRUE if success.
// ------------------------------------------------------------
: PromptRespond // (prompt response - 0 | -1)
SWAP 1092 WaitForString CALL // wait one minute for prompt
DUP NOT LogOnPrompt1 ?JUMP // exit if not received
SWAP SendString CALL // send response
: LogOnPrompt1 ;
: LogOn_End